unit BusinessLogicInterface;

interface

uses Classes, Dialogs, Windows, SysUtils;

type
  ISYSDBAccess=interface
    function GetDBConnection:TObject;
  end;

  ISYSParam=interface
    function GetSYSParam(const ParamName:string):string;
    function SetSYSParam(const ParamName,ParamValue:string):boolean;
    function AddSYSParam(const ParamName,ParamValue:string):boolean;
    function DelSYSParam(const ParamName:string):boolean;
    function GetParamList:TStringList;
  end;

  function CreateSYSDBAccess:ISYSDBAccess;
  function CreateSYSParam:ISYSParam;

  function DBGridExportToExcel(DBGridEh:TDBGridEh;FileName:string):boolean;

  var SYSDB:ISYSDBAccess;
      SYSParam:ISYSParam;

implementation


end.
